From: Simon Josefsson Date: Fri, 30 Aug 2002 10:31:02 +0000 (+0000) Subject: (smtpmail-via-smtp): Delete process buffer X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~30937 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=213839f855ca85c479657b3aeae76f138eefbd92;p=emacs.git (smtpmail-via-smtp): Delete process buffer unless s-debug-info is enabled. --- diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index f43c5f17858..3460a75a522 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -749,7 +749,9 @@ This is relative to `smtpmail-queue-dir'.") ; (>= (car response-code) 400)) ; (throw 'done nil) ; ) - (delete-process process)))))) + (delete-process process) + (unless smtpmail-debug-info + (kill-buffer process-buffer))))))) (defun smtpmail-process-filter (process output)